home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Celestin Apprentice 5
/
Apprentice-Release5.iso
/
Environments
/
PowerMacOberon feb96
/
System
/
Kepler2.Sym
< prev
next >
Wrap
Text File
|
1995-11-30
|
2KB
|
7 lines
˜∫÷ÿøKepler2 Fraction ¿Ÿ’øKeplerGraphs |ObjectDesc Object ¸{self ¬⁄‘øKeplerPorts Port ˚{P Draw ¸{self ã≈¶¶Files res eof tRider ˚{R Read ¸{self ˚{R Write x y refcnt sel Star next xStarDesc ¸{self ˚{P Draw ¸{self ˚{R Read ¸{self ˚{R Write Constellation c lPlanetDesc Planet ¸{self Calc ¸{self ˚{P Draw ¸{self ˚{R Read ¸{self ˚{R Write cnt dn | FractionDesc ¸{self Calc ¸{self ˚{R Read ¸{self ˚{R Write Offset dx dy x OffsetDesc ¸{self Calc ¸{self ˚{R Read ¸{self ˚{R Write XY t XYDesc ¸{self
Calc NewFractions NewOffset NewXY ܵàflDisplay Frame dsc next X
Y W H ¸{f x FrameMsg ˚{msg !Handler !handle t""FrameDesc x0 y0 scale ext "$|## #PortDesc ¸{P ˚{x # CX ¸{P ˚{y #CY ¸{P ˚{X #Cx ¸{P ˚{Y #Cy ¸{P ˚{x ˙{y ˘{r ¯{col ˜{mode #DrawCircle ¸{P ˚{x ˙{y ˘{a ¯{b ˜{col ˆ{mode #DrawEllipse ¸{P ˚{x1 ˙{y1 ˘{x2 ¯{y2 ˜{col ˆ{mode #DrawLine ¸{P ˚{x ˙{y ˘{w ¯{h ˜{col ˆ{mode #DrawRect ¸{P ˚{x ˙{y $˘{s êØâflFonts %Font %˜{font ˆ{col ı{mode # DrawString ¸{P ˚{x ˙{y ˘{r ¯{col ˜{pat ˆ{mode #
FillCircle ¸{P ˚{x1 ˙{y1 ˘{x2 ¯{y2 ˜{x3 ˆ{y3 ı{x4 8y4 <col ¿ pat ƒ mode #
FillQuad ¸{P ˚{x ˙{y ˘{w ¯{h ˜{col ˆ{pat ı{mode # FillRect # nofpts
&p next t'''ConsDesc ¸{self ˚{R 'Read ¸{self 'State ¸{self ˚{R ' Write ' "
(Name ( name height "minX $maxX &minY (maxY )Font ),raster 0 4|**FontDesc %* |++Bytes )+
